home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / WWW / HTML2.ARC / !HTML² / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-12-10  |  33KB  |  1,436 lines
  1.  HTML Macro Tool
  2.  By Rich Goodwin
  3. " at line ";
  4. Task$="HTML"+
  5. (178)
  6. &Purpose$="Even easier HTML markup"
  7. %Author$=
  8. (169)+" Richard Goodwin"
  9.     $Version$="2.02 (September 1996)"
  10.  quit
  11.  tick1%=
  12. SaveWindowOpts
  13.  tick2%=
  14. SaveDefs
  15. $(block%)="TASK"
  16. "Wimp_CloseDown",taskhandle,!block%
  17. quit=0
  18. pumping=0
  19. DefineSprites
  20.  block% 256
  21.  menublock% 256
  22.  "Wimp_Initialise",200,&4B534154,Task$ 
  23.  ,taskhandle
  24.  "Wimp_OpenTemplate",,"HTML2:Resources.Templates"
  25.  "Wimp_LoadTemplate",,,,,,"Styles" 
  26.  ,templen,worklen
  27.  styles templen,styleswork worklen
  28.  "Wimp_LoadTemplate",,styles,styleswork,styleswork+worklen,-1,"Styles",0
  29.  "Wimp_LoadTemplate",,,,,,"Info" 
  30.  ,templen,worklen
  31.  info templen,infowork worklen
  32.  "Wimp_LoadTemplate",,info,infowork,infowork+worklen,-1,"Info",0
  33.  "Wimp_LoadTemplate",,,,,,"Effects" 
  34.  ,templen,worklen
  35.  effect templen,effectwork worklen
  36.  "Wimp_LoadTemplate",,effect,effectwork,effectwork+worklen,-1,"Effects",0
  37.  "Wimp_LoadTemplate",,,,,,"Characters" 
  38.  ,templen,worklen
  39.  char templen,charwork worklen
  40.  "Wimp_LoadTemplate",,char,charwork,charwork+worklen,-1,"Characters",0
  41.  "Wimp_LoadTemplate",,,,,,"Addresses" 
  42.  ,templen,worklen
  43.  address templen,addresswork worklen
  44.  "Wimp_LoadTemplate",,address,addresswork,addresswork+worklen,-1,"Addresses",0 
  45.  "Wimp_LoadTemplate",,,,,,"Choices" 
  46.  ,templen,worklen
  47.  choice templen,choicework worklen
  48.  "Wimp_LoadTemplate",,choice,choicework,choicework+worklen,-1,"Choices",0
  49.  "Wimp_CloseTemplate"
  50.  "Wimp_CreateWindow",,styles 
  51.  styleshandle
  52.  "Wimp_CreateWindow",,info 
  53.  infohandle
  54.  "Wimp_CreateWindow",,char 
  55.  charhandle
  56.  "Wimp_CreateWindow",,address 
  57.  addresshandle
  58.      effect!64=usersprites%
  59.  "Wimp_CreateWindow",,effect 
  60.  effecthandle  
  61.  "Wimp_CreateWindow",,choice 
  62.  choicehandle
  63. DefineCharacters
  64. DefineAddresses
  65. DefineStyles
  66. DefineEffectsMacros
  67. iconbar
  68. version
  69. defineoptions
  70. iconbar
  71. !block%=-1
  72. block%!4=0
  73. block%!8=0
  74. block%!12=28
  75. block%!16=68
  76. block%!20=&201A
  77. $(block%+24)="html2-a"
  78.  "Wimp_CreateIcon",,block% 
  79.  aiconbarhandle
  80. !block%=-1
  81. block%!4=0
  82. block%!8=0
  83. block%!12=24
  84. block%!16=68
  85. block%!20=&201A
  86. $(block%+24)="html2-c"
  87.  "Wimp_CreateIcon",,block% 
  88.  ciconbarhandle
  89. !block%=-1
  90. block%!4=0
  91. block%!8=0
  92. block%!12=24
  93. block%!16=68
  94. block%!20=&201A
  95. $(block%+24)="html2-e"
  96.  "Wimp_CreateIcon",,block% 
  97.  eiconbarhandle
  98. !block%=-1
  99. block%!4=0
  100. block%!8=0
  101. block%!12=24
  102. block%!16=68
  103. block%!20=&201A
  104. $(block%+24)="html2-s"
  105.  "Wimp_CreateIcon",,block% 
  106.  siconbarhandle
  107. version
  108. !block%=infohandle
  109. block%!4=1
  110. "Wimp_GetIconState",,block%
  111. $(block%!28)=Task$ 
  112. !block%=infohandle
  113. block%!4=2
  114. "Wimp_GetIconState",,block%
  115. $(block%!28)=Purpose$  
  116. !block%=infohandle
  117. block%!4=3
  118. "Wimp_GetIconState",,block%
  119. $(block%!28)=Author$
  120. !block%=infohandle
  121. block%!4=4
  122. "Wimp_GetIconState",,block%
  123. $(block%!28)=Version$
  124. makeiconmenu(X)
  125. $(menublock%)=Task$
  126. menublock%!12=&00070207
  127. menublock%!16=182
  128. menublock%!20=44
  129. menublock%!24=0
  130. menublock%!28=2
  131. menublock%!32=infohandle
  132. menublock%!36=&7000001
  133. $(menublock%+40)="Info"
  134. menublock%!52=0
  135. menublock%!56=0
  136. menublock%!60=&7000001
  137. $(menublock%+64)="Styles"
  138. menublock%!76=0
  139. menublock%!80=0
  140. menublock%!84=&7000001
  141. $(menublock%+88)="Effects"
  142. menublock%!100=0
  143. menublock%!104=0
  144. menublock%!108=&7000001
  145. "$(menublock%+112)="Characters"
  146. menublock%!124=2
  147. menublock%!128=0
  148. menublock%!132=&7000001
  149. !$(menublock%+136)="Addresses"
  150. menublock%!148=0
  151. menublock%!152=choicehandle
  152. menublock%!156=&7000001
  153. "$(menublock%+160)="Choices..."
  154. menublock%!172=2
  155. menublock%!176=0
  156. menublock%!180=&7000001
  157. $(menublock%+184)="Reload"
  158. menublock%!196=&80
  159. menublock%!200=-1
  160. menublock%!204=&7000001
  161. $(menublock%+208)="Quit"
  162. "Wimp_CreateMenu",,menublock%,X,500
  163. openstyles
  164. !block%=styleshandle
  165. "Wimp_GetWindowState",,block%
  166. block%!28=-1
  167. "Wimp_OpenWindow",,block%
  168. openeffects
  169. !block%=effecthandle
  170. "Wimp_GetWindowState",,block%
  171. block%!28=-1
  172. "Wimp_OpenWindow",,block%
  173. openchars
  174. !block%=charhandle
  175. "Wimp_GetWindowState",,block% 
  176. block%!28=-1
  177. "Wimp_OpenWindow",,block%
  178. openaddress
  179. !block%=addresshandle
  180. "Wimp_GetWindowState",,block%
  181. block%!28=-1
  182. "Wimp_OpenWindow",,block%
  183. openchoices
  184. !block%=choicehandle
  185. "Wimp_GetWindowState",,block%
  186. block%!28=-1
  187. "Wimp_OpenWindow",,block%
  188. "Wimp_Poll",0,block% 
  189.  reason,handle
  190.  reason 
  191.  1 : 
  192. "Wimp_RedrawWindow",,block%
  193.  2 : 
  194. "Wimp_OpenWindow",,block%
  195.  3 : 
  196. "Wimp_CloseWindow",,block%
  197.  6 : 
  198. mouseclick(block%)
  199.  9 : 
  200. menuselect(block%)
  201.  17,18 :
  202. message(block%)
  203. mouseclick(bl)
  204.  bl!12=-2 
  205. oniconbar
  206.  bl!12=styleshandle 
  207. ClickOnStyles
  208.  bl!12=effecthandle 
  209. ClickOnEffect
  210.  bl!12=charhandle 
  211. ClickOnChar
  212.  bl!12=addresshandle 
  213. ClickOnAddress 
  214.  bl!12=choicehandle 
  215. ClickOnChoices
  216. oniconbar
  217.  bl!16=siconbarhandle 
  218.  bl!16=eiconbarhandle 
  219.  bl!16=ciconbarhandle 
  220.  bl!16=aiconbarhandle 
  221.  iconbar=
  222.  bl!8=4 
  223.  bl!16=siconbarhandle 
  224. openstyles
  225.  bl!8=1 
  226.  bl!16=siconbarhandle 
  227. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Styles"
  228.  bl!8=4 
  229.  bl!16=eiconbarhandle 
  230. openeffects
  231.  bl!8=1 
  232.  bl!16=eiconbarhandle 
  233. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Effects"
  234.  bl!8=4 
  235.  bl!16=ciconbarhandle 
  236. openchars
  237.  bl!8=1 
  238.  bl!16=ciconbarhandle 
  239. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Chars"
  240.  bl!8=4 
  241.  bl!16=aiconbarhandle 
  242. openaddress
  243.  bl!8=1 
  244.  bl!16=aiconbarhandle 
  245. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Address"
  246.  bl!8=2 
  247.  iconbar=
  248. makeiconmenu(!bl-64)
  249. message(bl)
  250.  bl!16 
  251.  0 : quit=-1
  252.  3 : 
  253. fileinsert
  254.  &502: 
  255. menuselect(bl)
  256.  !bl 
  257. "XOS_CLI","Filer_OpenDir HTML2:Resources.^"
  258. openstyles 
  259. openeffects 
  260. openchars
  261. openaddress
  262.   WHEN 5: PROCopenchoices
  263. reload 
  264.  7: quit=-1
  265. push(pump$)
  266. pumping=1
  267. (pump$)=0 
  268. character=
  269. pump$,X,1))
  270.  character=10 character=13
  271. "OS_Byte",138,0,character
  272. +microspell=
  273. moduleversion("MicroSpell")
  274.  5=0 
  275.  character=10 
  276.  character=13 
  277.  character=32) 
  278.  microspell=-1 
  279.  microspell<>-1 
  280. (pump$)
  281. pumping=0
  282. moduleversion(Q$)
  283. "XOS_Module",18,Q$ 
  284.  J%,,,M%
  285.  J%<>18 =-1
  286. M%+=M%!20
  287. ?M%<>9:M%+=1:
  288. ?M%=9:M%+=1:
  289. #N$="":
  290. ?M%>32:N$+=
  291. ?M%:M%+=1:
  292.  N$*100
  293. zero(number%)
  294.  number%<=9 
  295.  number%>=0 
  296.  ="0" 
  297. DefineSprites
  298.  usersprites% 3500
  299. !usersprites%=3500
  300. usersprites%!8=16
  301.  "OS_SpriteOp",256+9,usersprites%
  302. "OS_SpriteOp",256+10,usersprites%,"HTML2:Resources.Sprite"
  303.  loop=2
  304. zero$=
  305. zero(loop)
  306. + newname$="pal"+zero$+
  307. (loop)
  308. "OS_SpriteOp",256+27,usersprites%,"pal01",newname$
  309. DefineColours
  310.  R$,G$,B$,loop%
  311.  loop%=1 
  312. colour$(loop%),2)
  313. colour$(loop%),3,2)
  314. colour$(loop%),2)
  315. alterpal(loop%,
  316. ("&"+R$),
  317. ("&"+G$),
  318. ("&"+B$))
  319. alterpal(number%,R,G,B)
  320.  ppos%
  321. ppos%=
  322. palpos(number%)
  323. usersprites%?(ppos%+4)=R
  324. usersprites%?(ppos%+5)=G
  325. usersprites%?(ppos%+6)=B
  326. palpos(number%)
  327.  temp%
  328. temp%=57
  329.  number%=1 =temp%
  330. temp%+=108*(number%-1)
  331. =temp%
  332. DefineAddresses
  333.  loop%
  334.  address$(12)
  335. LLaddress$(1)="<a href=""mailto:mabel@argonet.co.uk"">Richard Goodwin</a>"
  336. DoAddressString(0,"Author's E-ddress")
  337. address$(2)="Richard Goodwin,<BR>"+
  338. (13)+"22 Wray Close,<BR>"+
  339. (13)+"St. Anns,<BR>"+
  340. (13)+"Nottingham.<BR>"+
  341. (13)+"NG3 2FS<P>"+
  342. (13)+
  343. (13)+"Email: <a href=""mailto:mabel@argonet.co.uk"">mabel@argonet.co.uk</a>"
  344. DoAddressString(1,"Author's Address")
  345.  loop%=3 
  346. Q4address$(loop%)="Address "+
  347. zero(loop%)+
  348. (loop%)
  349. DoAddressString(loop%-1,address$(loop%))
  350. LoadAddresses("<HTML2Scripts$Dir>.Address")
  351. DoAddressString(icon,string$)
  352.  icon>12 
  353. (string$)>28 string$=
  354. string$,28)
  355. !block%=addresshandle
  356. block%!4=icon
  357. "Wimp_GetIconState",,block%
  358. $(block%!28)=string$
  359. LoadAddresses(inputfile$)
  360.  check%, fileopen, char, var$, macro$, addressnumber
  361. "OS_File",5,inputfile$ 
  362.  check%
  363.  check%=0 
  364. fileopen=
  365.  inputfile$
  366. var$=""
  367. char=
  368. #fileopen
  369.  char>96 
  370.  char<123 
  371.  char-=32
  372.  char<>
  373.  char<>10 
  374.  char<>13 
  375.  char<>32 
  376.  char<>0 
  377. (var$)<250 
  378.  var$=var$+
  379. (char)
  380.  char=
  381. #fileopen
  382. #fileopen 
  383. #fileopen:
  384. macro$=""
  385. char=
  386. #fileopen
  387.  char=92 
  388.  macro$=macro$+
  389.  char<>10 
  390.  char<>13 
  391.  char<>
  392. (macro$)<255 
  393.  macro$=macro$+
  394. (char)
  395.  char=10 
  396.  char=13 
  397. #fileopen
  398. addressnumber=0
  399.  (var$)=7 
  400. var$,5)="ADTAG" 
  401.  addressnumber=(
  402. var$,2))
  403.  (var$)=7 
  404. var$,5)="ADDEF" 
  405.  addressnumber=(
  406. var$,2))
  407.  (var$)=6 
  408. var$,5)="ADTAG" 
  409.  addressnumber=(
  410. var$,1))
  411.  (var$)=6 
  412. var$,5)="ADDEF" 
  413.  addressnumber=(
  414. var$,1))
  415.  var$="ADDEF" 
  416.  var$="ADTAG" var$=""
  417. var$,5)="ADDEF" 
  418.  addressnumber>12 var$=""
  419. var$,5)="ADTAG" 
  420.  addressnumber>12 var$=""
  421. var$,5)="ADDEF" 
  422.  addressnumber<1  var$=""
  423. var$,5)="ADDEF" 
  424.  addressnumber<1  var$=""
  425. var$,5) 
  426.  "ADTAG": 
  427. DoAddressString(addressnumber-1,macro$)
  428.  "ADDEF": address$(addressnumber)=macro$
  429.  var$="MAIL" 
  430.  address$(11)=macro$:
  431. DoAddressString(10,"Old !HTMacroL E-ddress")
  432.  var$="ADDR" 
  433.  address$(12)=macro$:
  434. DoAddressString(11,"Old !HTMacroL Address")
  435. #fileopen
  436. #fileopen
  437. DefineCharacters
  438.  listitem$(13)
  439.  char$(116)
  440. listitem$(1)="<ol>"
  441. listitem$(2)="</ol>"
  442. listitem$(3)="<ul>"
  443. listitem$(4)="</ul>"
  444. listitem$(5)="<li>"
  445. listitem$(6)="<dl>"
  446. listitem$(7)="</dl>"
  447. listitem$(8)="<dt>"
  448. listitem$(9)="<dd>"
  449. *char$(1)="<":
  450. DoCharString(09,"<")
  451. *char$(2)=">":
  452. DoCharString(10,">")
  453. *char$(3)="/":
  454. DoCharString(11,"/")
  455. *char$(4)="&":
  456. DoCharString(12,"&")
  457. *char$(5)="#":
  458. DoCharString(13,"#")
  459. *char$(6)="!":
  460. DoCharString(14,"!")
  461. ,char$(7)="™":
  462. DoCharString(15,"
  463. +char$(8)="©":
  464. DoCharString(16,"
  465. +char$(9)="®":
  466. DoCharString(17,"
  467. ,char$(10)="£":
  468. DoCharString(18,"
  469. ,char$(11)="×":
  470. DoCharString(19,"
  471. ,char$(12)="÷":
  472. DoCharString(20,"
  473. char$(13)=" "
  474. DoCharString(21,"HS")
  475.  loop%=2 
  476. DoChar(loop%+20,loop%+159)
  477. )char$(loop%+12)="&#"+
  478. (loop%+159)+";"
  479. LoadChars("<HTML2Scripts$Dir>.Chars")
  480. LoadChars(inputfile$)
  481.  check%, fileopen, char, var$, macro$, addressnumber
  482. "OS_File",5,inputfile$ 
  483.  check%
  484.  check%=0 
  485. fileopen=
  486.  inputfile$
  487. var$=""
  488. char=
  489. #fileopen
  490.  char>96 
  491.  char<123 
  492.  char-=32
  493.  char<>
  494.  char<>10 
  495.  char<>13 
  496.  char<>32 
  497.  char<>0 
  498. (var$)<250 
  499.  var$=var$+
  500. (char)
  501.  char=
  502. #fileopen
  503. #fileopen 
  504. #fileopen:
  505. macro$=""
  506. char=
  507. #fileopen
  508.  char=92 
  509.  macro$=macro$+
  510.  char<>10 
  511.  char<>13 
  512.  char<>
  513. (macro$)<255 
  514.  macro$=macro$+
  515. (char)
  516.  char=10 
  517.  char=13 
  518. #fileopen
  519. charnumber=0
  520.  (var$)=7 
  521. var$,4)="CTAG" 
  522.  charnumber=(
  523. var$,3))
  524.  (var$)=6 
  525. var$,4)="CTAG" 
  526.  charnumber=(
  527. var$,2))
  528.  (var$)=5 
  529. var$,4)="CTAG" 
  530.  charnumber=(
  531. var$,1))
  532.  (var$)=7 
  533. var$,4)="CDEF" 
  534.  charnumber=(
  535. var$,3))
  536.  (var$)=6 
  537. var$,4)="CDEF" 
  538.  charnumber=(
  539. var$,2))
  540.  (var$)=5 
  541. var$,4)="CDEF" 
  542.  charnumber=(
  543. var$,1))
  544.  var$="CDEF" 
  545.  var$="CTAG" var$=""
  546. var$,4)="CDEF" 
  547.  charnumber>116 var$=""
  548. var$,4)="CTAG" 
  549.  charnumber>116 var$=""
  550. var$,4)="CDEF" 
  551.  charnumber<001 var$=""
  552. var$,4)="CTAG" 
  553.  charnumber<001 var$=""
  554. var$,4) 
  555.  "CTAG": 
  556. DoCharString(charnumber+8,macro$)
  557.  "CDEF": char$(charnumber)=macro$
  558.  var$ 
  559.  "OL"  : listitem$(1)=macro$
  560.  "NOOL": listitem$(2)=macro$
  561.  "UL"  : listitem$(3)=macro$
  562.  "NOUL": listitem$(4)=macro$
  563.  "LI"  : listitem$(5)=macro$
  564.  "DL"  : listitem$(6)=macro$
  565.  "NODL": listitem$(7)=macro$
  566.  "DH"  : listitem$(8)=macro$
  567.  "DD"  : listitem$(9)=macro$
  568. #fileopen
  569. #fileopen
  570. DoChar(icon,character)
  571. !block%=charhandle
  572. block%!4=icon
  573. "Wimp_GetIconState",,block%
  574. $(block%!28)=
  575. (character)
  576. DoCharString(icon,string$)
  577. (string$)>2 string$=
  578. string$,2)
  579.  icon>116 
  580. !block%=charhandle
  581. block%!4=icon
  582. "Wimp_GetIconState",,block%
  583. $(block%!28)=string$
  584. DefineEffectsMacros
  585.  colour$(32), minus$(7), plus$(7)
  586.  loop%,loop2%,number$
  587.  loop%=1 
  588.    number$=
  589. ~((loop%-1)*8.25)
  590. (number$)=1 number$="0"+number$
  591.    colour$(loop%)=
  592. 3,number$)
  593. DefineColours
  594. -zero$="<font size="+
  595. (34)+"+0"+
  596. (34)+">" 
  597.  loop%=1 
  598. >  minus$(loop%)="<font size="+
  599. (34)+"-"+
  600. (loop%)+
  601. (34)+">"
  602. >   plus$(loop%)="<font size="+
  603. (34)+"+"+
  604. (loop%)+
  605. (34)+">"
  606. resetfont$="</font>"  
  607.      ital$="<em>":noital$="</em>"
  608. (bold$="<strong>":nobold$="</strong>"
  609.  under$="<u>":nounder$="</u>"
  610. Wusereffect$="<font size=7 color=#006000><b><i>":nousereffect$="</i></b></font><br>"
  611.  sub$="<sub>":nosub$="</sub>"
  612.  sup$="<sup>":nosup$="</sup>"
  613. LoadEffectsMacros("<HTML2Scripts$Dir>.Effects")
  614. LoadEffectsMacros(inputfile$)
  615.  check%, fileopen, char, var$, macro$
  616. "OS_File",5,inputfile$ 
  617.  check%
  618.  check%=0 
  619. fileopen=
  620.  inputfile$
  621. var$=""
  622. char=
  623. #fileopen
  624.  char>96 
  625.  char<123 
  626.  char-=32
  627.  char<>
  628.  char<>10 
  629.  char<>13 
  630.  char<>32 
  631.  char<>0 
  632. (var$)<250 
  633.  var$=var$+
  634. (char)
  635.  char=
  636. #fileopen
  637. #fileopen 
  638. #fileopen:
  639. DefineColours:
  640. macro$=""
  641. char=
  642. #fileopen
  643.  char=92 
  644.  macro$=macro$+
  645.  char<>10 
  646.  char<>13 
  647.  char<>
  648. (macro$)<255 
  649.  macro$=macro$+
  650. (char)
  651.  char=10 
  652.  char=13 
  653. #fileopen
  654.  var$ 
  655.  "ITAL":   
  656.  ital$=macro$
  657.  "NOITAL": 
  658.  noital$=macro$
  659.  "BOLD":   
  660.  bold$=macro$
  661.  "NOBOLD": 
  662.  nobold$=macro$
  663.  "UNDER":  
  664.  under$=macro$
  665.  "NOUNDER":
  666.  nounder$=macro$
  667.  "USER":   
  668.  usereffect$=macro$
  669.  "NOUSER": 
  670.  nousereffect$=macro$
  671.  "SUB":    
  672.  sub$=macro$
  673.  "SUP":    
  674.  sup$=macro$
  675.  "NOSUB":  
  676.  nosub$=macro$
  677.  "NOSUP":  
  678.  nosup$=macro$
  679.  "ZERO":   
  680.  zero$=macro$
  681.  "RESET":  
  682.  resetfont$=macro$
  683. var$,3)="COL" 
  684.  value=(
  685. var$,2)): 
  686.  value>32 
  687.  value<1 
  688.  var$=""
  689. var$,4)="PLUS" 
  690.  value=(
  691. var$,1)): 
  692.  value>7 
  693.  value<1 
  694.  var$=""
  695. var$,5)="MINUS" 
  696.  value=(
  697. var$,1)): 
  698.  value>7 
  699.  value<1 
  700.  var$=""
  701. var$,3)="COL" 
  702.  colour$(
  703. var$,2))=macro$
  704. var$,4)="PLUS" 
  705.  plus$(
  706. var$,1))=macro$
  707. var$,5)="MINUS" 
  708.  minus$(
  709. var$,1))=macro$
  710. #fileopen
  711. #fileopen
  712. DefineColours
  713. DefineStyles
  714. BZheader$="<html><head><title>"+
  715. (13)+"Insert Title Here!"+
  716. (13)+"</title></head><body>"
  717. footer$="</body></html>"
  718. h1on$="<center><h1>"
  719. h1off$="</h1></center>"
  720. h2on$="<h2>"
  721. h2off$="<h2>"
  722. h3on$="<h3>"
  723. h3off$="</h3>"
  724. h4on$="<h4>"
  725. h4off$="</h4>"
  726. h5on$="<h5>"
  727. h5off$="</h5>"
  728. h6on$="<h6>"
  729. h6off$="</h6>"
  730. center$="<center>"
  731. nocenter$="</center>"
  732. paragraph$="<p>"+
  733. paraoff$="</p>"+
  734. T"paraleft$="<P align=""left"">"
  735. U$pararight$="<P align=""right"">"
  736. V¶center$="<P align=""center"">"
  737. break$="<br>"
  738. nobreak$="</br>"
  739. Y$breakleft$="<br align=""left"">"
  740. Z&breakright$="<br align=""right"">"
  741. [(breakcenter$="<br align=""center"">"
  742. \%image$="<img border=0 src="+
  743. cap$=
  744. (34)+">"
  745. link$="<a href="+
  746. _ goname$="<a href="+
  747. (34)+"#"
  748. aname$="<a name="+
  749. endlink$="</a>"
  750. b"rule$=
  751. (13)+"<P><HR><P>"+
  752. cGbar$="<p><center><img src=""bar.gif"" alt=""-=oOo=-""></center><p>"
  753. d=customrule$="<P><HR size=""3"" width=""25%"" noshade><P>"
  754. pre$="<pre>"
  755. nopre$="</pre>"
  756. tt$="<tt>"
  757. nott$="</tt>"
  758. code$="<code>"
  759. nocode$="</code>"
  760. variable$="<var>"
  761. novar$="</var>"
  762. cite$="<cite>"
  763. nocite$="</cite>"
  764. addressstyle$="<address>"
  765. noaddress$="</address>"
  766. quote$="<blockquote>"
  767. noquote$="</blockquote>"
  768. strikeout$="<strike>"
  769. nostrikeout$="</strike>"
  770. u1user1$="<font color=""#ff0000"" size=""+3"">"
  771. nouser1$="</font>"
  772. w+user2$="<font size=""+3""><em><strong>"
  773. x.nouser2$="</strong></em><font size=""0"">"
  774. LoadStyles("<HTML2Scripts$Dir>.Styles")
  775. LoadStyles(inputfile$)
  776.  LOCAL ERROR: ON ERROR CLOSE#0:ENDPROC
  777. "OS_File",5,inputfile$ 
  778.  check%
  779.  check%=0 
  780.  inputfile$
  781. var$=""
  782. char=
  783.  char>96 
  784.  char<123 
  785.  char-=32
  786.  char<>
  787.  char<>10 
  788.  char<>13 
  789.  char<>32 
  790.  char<>0 
  791. (var$)<250 
  792.  var$=var$+
  793. (char)
  794.  char=
  795. macro$=""
  796. char=
  797.  char=92 
  798.  macro$=macro$+
  799.  char<>10 
  800.  char<>13 
  801.  char<>
  802. (macro$)<255 
  803.  macro$=macro$+
  804. (char)
  805.  char=10 
  806.  char=13 
  807.  var$ 
  808.  "HEAD":header$=macro$
  809.  "FOOT":footer$=macro$
  810.  "BIGTEXT":
  811. DoOldBigText
  812.  "NOBIG":nouser2$=macro$
  813.  "H1ON":h1on$=macro$ 
  814.  "NOH1":h1off$=macro$ 
  815.  "H2ON":h2on$=macro$ 
  816.  "NOH2":h2off$=macro$ 
  817.  "H3ON":h3on$=macro$ 
  818.  "NOH3":h3off$=macro$ 
  819.  "H4ON":h4on$=macro$ 
  820.  "NOH4":h4off$=macro$  
  821.  "H5ON":h5on$=macro$  
  822.  "NOH5":h5off$=macro$  
  823.  "H6ON":h6on$=macro$ 
  824.  "NOH6":h6off$=macro$
  825.  "CENTER":center$=macro$ 
  826.  "NOCENT":nocenter$=macro$ 
  827.  "PARA":paragraph$=macro$ 
  828.  "PARAOFF":paraoff$=macro$ 
  829.  "PARALF":paraleft$=macro$ 
  830.  "PARART":pararight$=macro$ 
  831.  "PARACN":paracenter$=macro$ 
  832.  "BREAK":break$=macro$ 
  833.  "BREAKOFF":nobreak$=macro$ 
  834.  "BREAKLF":breakleft$=macro$ 
  835.  "BREAKRT":breakright$=macro$ 
  836.  "BREAKCN":breakcenter$=macro$
  837.  "IMAGE":image$=macro$ 
  838.  "CAP":cap$=macro$ 
  839.  "LINK":link$=macro$ 
  840.  "GONAME":goname$=macro$ 
  841.  "NAME":aname$=macro$ 
  842.  "ENDLK":endlink$=macro$ 
  843.  "RULE":rule$=macro$ 
  844.  "BAR":bar$=macro$ 
  845.  "CUSTOMRULE":customrule$=macro$
  846.  "PRE":pre$=macro$ 
  847.  "NOPRE":nopre$=macro$ 
  848.  "TT":tt$=macro$ 
  849.  "NOTT":nott$=macro$ 
  850.  "CODE":code$=macro$ 
  851.  "NOCODE":nocode$=macro$ 
  852.  "VAR":variable$=macro$ 
  853.  "NOVAR":novar$=macro$ 
  854.  "CITE":cite$=macro$ 
  855.  "NOCITE":nocite$=macro$ 
  856.  "ADDRESS":addressstyle$=macro$ 
  857.  "NOADDRESS":noaddress$=macro$ 
  858.  "QUOTE":quote$=macro$ 
  859.  "NOQUOTE":noquote$=macro$ 
  860.  "STRIKE":strikeout$=macro$ 
  861.  "NOSTRIKE":nostrikeout$=macro$ 
  862.  "USER1":user1$=macro$ 
  863.  "NOUSER1":nouser1$=macro$ 
  864.  "USER2":user2$=macro$ 
  865.  "NOUSER2":nouser2$=macro$
  866.  "USER1TAG":
  867. DoStyleString(51,macro$)
  868.  "USER2TAG":
  869. DoStyleString(53,macro$)
  870. DoOldBigText
  871. user2$=macro$:
  872. DoStyleString(53,"BigText")
  873. DoStyleString(icon,string$)
  874. (string$)>12 string$=
  875. string$,12)
  876.  icon<>51 
  877.  icon<>53  
  878. !block%=styleshandle
  879. block%!4=icon
  880. "Wimp_GetIconState",,block%
  881. $(block%!28)=string$
  882. ClickOnStyles
  883.  (bl!8 
  884.  4)=1 
  885. "Wimp_CloseWindow",,block%
  886. temp$=""
  887.  bl!16 
  888.  00:temp$=header$
  889.  55:temp$=footer$
  890.  01:temp$=h1on$
  891.  02:temp$=h1off$
  892.  03:temp$=h2on$
  893.  04:temp$=h2off$
  894.  05:temp$=h3on$
  895.  06:temp$=h3off$
  896.  07:temp$=h4on$
  897.  08:temp$=h4off$
  898.  09:temp$=h5on$
  899.  10:temp$=h5off$
  900.  11:temp$=h6on$
  901.  12:temp$=h6off$
  902.  14:temp$=center$
  903.  15:temp$=nocenter$
  904.  16:temp$=paragraph$
  905.  17:temp$=paraoff$
  906.  18:temp$=paraleft$
  907.  19:temp$=paracenter$
  908.  20:temp$=pararight$
  909.  21:temp$=break$
  910.  22:temp$=nobreak$
  911.  23:temp$=breakleft$
  912.  24:temp$=breakcenter$
  913.  25:temp$=breakright$
  914.  26:temp$=image$
  915.  27:temp$=cap$
  916.  28:temp$=link$
  917.  29:temp$=goname$
  918.  30:temp$=aname$
  919.  31:temp$=endlink$
  920.  32:temp$=rule$
  921.  33:temp$=bar$
  922.  34:temp$=customrule$
  923.  35:temp$=pre$
  924.  36:temp$=nopre$
  925.  37:temp$=tt$
  926.  38:temp$=nott$
  927.  39:temp$=code$
  928.  40:temp$=nocode$
  929.  41:temp$=variable$
  930.  42:temp$=novar$
  931.  43:temp$=cite$
  932.  44:temp$=nocite$
  933.  45:temp$=addressstyle$
  934.  46:temp$=noaddress$
  935.  47:temp$=quote$
  936.  48:temp$=noquote$
  937.  49:temp$=strikeout$
  938.  50:temp$=nostrikeout$
  939.  51:temp$=user1$
  940.  52:temp$=nouser1$
  941.  53:temp$=user2$
  942.  54:temp$=nouser2$
  943.  temp$="" 
  944.  pumping=0 
  945. push(temp$):
  946.  pumping=1 
  947. (pump$)+
  948. (temp$)>255 
  949. pump$=pump$+temp$:
  950. ClickOnEffect
  951.  temp$, icon%
  952.  (bl!8 
  953.  4)=1 
  954. "Wimp_CloseWindow",,block%
  955. temp$="":icon%=bl!16
  956.  icon%<32 
  957.  temp$="<font color="+
  958. (34)+"#"+colour$(icon%+1)+
  959. (34)+">"
  960.  icon%>31 
  961.  icon%<39 
  962.  temp$=plus$(icon%-31)
  963.  icon%>39 
  964.  icon%<47 
  965.  temp$=minus$(icon%-39)
  966.  icon% 
  967.  39: temp$=zero$
  968.  47: temp$=resetfont$
  969.  48: temp$=ital$
  970.  49: temp$=noital$
  971.  50: temp$=bold$
  972.  51: temp$=nobold$
  973.  52: temp$=under$
  974.  53: temp$=nounder$
  975.  54: temp$=usereffect$
  976.  55: temp$=nousereffect$
  977.  56: temp$=sup$
  978.  57: temp$=nosup$
  979.  58: temp$=sub$
  980.  59: temp$=nosub$
  981.  temp$="" 
  982.  pumping=0 
  983. push(temp$):
  984.  pumping=1 
  985. (pump$)+
  986. (temp$)>255 
  987. pump$=pump$+temp$:
  988. ClickOnChar
  989.  temp$, icon%
  990.  (bl!8 
  991.  4)=1 
  992. "Wimp_CloseWindow",,block%
  993. temp$="":icon%=bl!16
  994.  icon%<=8 
  995.  temp$=listitem$(icon%+1)
  996.  icon%>=9 
  997.  temp$=char$(icon%-8)
  998.  temp$="" 
  999.  pumping=0 
  1000. push(temp$):
  1001.  pumping=1 
  1002. (pump$)+
  1003. (temp$)>255 
  1004. pump$=pump$+temp$:
  1005. ClickOnAddress
  1006.  temp$, icon%
  1007.  (bl!8 
  1008.  4)=1 
  1009. "Wimp_CloseWindow",,block%
  1010. temp$="":icon%=bl!16
  1011.  icon%>=0 
  1012.  icon%<=11 
  1013.  temp$=address$(icon%+1)
  1014.  temp$="" 
  1015.  pumping=0 
  1016. push(temp$):
  1017.  pumping=1 
  1018. (pump$)+
  1019. (temp$)>255 
  1020. pump$=pump$+temp$:
  1021.  help$
  1022.  block%!32 
  1023.  -2:help$="This is a HTML
  1024.  icon.|MPlease see the documentation for help on using this program.|M"
  1025.  effecthandle:help$="This is the HTML
  1026.  ""Effects"" window|MIt allows you to insert HTML colour, size and effect macros.|M"
  1027.  styleshandle:help$="This is the HTML
  1028.  ""Styles"" window|MIt allows you to insert HTML commands for (sub)headings and other styles.|M"
  1029.  charhandle:help$="This is the HTML
  1030.  ""Characters"" window|MIt allows you to insert HTML commands for the extended character set, and helps you to easily build up lists (bulletted, numbered or plain).|M"
  1031.  addresshandle:help$="This is the HTML
  1032.  ""Address"" window|MIt allows you to insert frequently used addresses and email links.|M"
  1033.  infohandle:help$="HTML
  1034. : Version "+ver$+"|M
  1035.  Richard Goodwin for House of Mabel Design|M"
  1036.  help$<>"" 
  1037. block%!12=block%!8
  1038. block%!16=&503
  1039. $(block%+20)=help$+
  1040. !block%=(25+
  1041.  help$) 
  1042.  "Wimp_SendMessage",17,block%,block%!4,0
  1043. fileinsert
  1044.  pos%,temp$
  1045. name$="":temp$=""
  1046. pos%=0
  1047.  ?(bl+44+pos%)<>0
  1048. name$+=
  1049. (?(bl+44+pos%))
  1050. pos%+=1
  1051. GetFileType
  1052. GetFileInfo
  1053.  filetype% 
  1054.  &C85 : temp$="<img src="+
  1055. (34)+file$+".jpeg"+
  1056. (34)+" border=0 alt="+
  1057. (34)+file$+
  1058. (34)+">"
  1059.  &695 : temp$="<img src="+
  1060. (34)+file$+".gif"+
  1061. (34)+" border=0 alt="+
  1062. (34)+file$+
  1063. (34)+">"
  1064.  &FAF : temp$="<a href="+
  1065. (34)+file$+".html"+
  1066. (34)+">"
  1067.  &3FB : temp$="<a href="+
  1068. (34)+file$+".arc"+
  1069. (34)+">"+file$+".arc</a>"
  1070.  &DDC : temp$="<a href="+
  1071. (34)+file$+".spk"+
  1072. (34)+">"+file$+".spk</a>"
  1073.  &FF9 : temp$="<img src="+
  1074. (34)+file$+
  1075. (34)+" border=0 alt="+
  1076. (34)+file$+
  1077. (34)+">"
  1078.  &FFF : 
  1079. LoadNewDefinitions(name$)
  1080.  temp$="" 
  1081.  pumping=0 
  1082. push(temp$):
  1083.  pumping=1 
  1084. (pump$)+
  1085. (temp$)>255 
  1086. pump$=pump$+temp$:
  1087. GetFileType
  1088.  "OS_File",5,name$ 
  1089.  ,,filetype%
  1090. }&filetype%=(filetype% 
  1091.  &FFF00)>>>8
  1092. GetFileInfo
  1093.  pos%,q$,noextension$
  1094. pos%=
  1095. (name$):file$=""
  1096. name$,pos%,1)
  1097. pos%-=1
  1098.  q$<>"." 
  1099.  file$=q$+file$
  1100.  q$="."
  1101. noextension$="":pos%=0
  1102. pos%+=1
  1103. file$,pos%,1)
  1104.  q$<>"/" noextension$+=q$
  1105.  q$="/" 
  1106.  pos%>=
  1107. (file$)
  1108. file$=noextension$
  1109. ClickOnChoices
  1110.  temp$, icon%
  1111.  (bl!8 
  1112.  4)=1 
  1113. "Wimp_CloseWindow",,block%
  1114. icon%=bl!16
  1115.  icon% 
  1116. SaveWindowOpts
  1117. LoadWindowOpts
  1118. "XOS_CLI","WIPE HTML2:Resources.Windows ~C F R ~V"
  1119. SaveDefs
  1120. reload
  1121. "XOS_CLI","Filer_OpenDir <HTML2Scripts$Dir>" 
  1122. "XOS_CLI","Filer_OpenDir <HTML2Scripts$Dir>.^.Backups"
  1123. DoTicks
  1124. DoTicks
  1125. DoTicks
  1126. byte%=0
  1127. %tick1%=
  1128. CheckTick(choicehandle,4)
  1129. %tick2%=
  1130. CheckTick(choicehandle,5)
  1131.  tick1%>0 
  1132.  tick1%=
  1133.  tick1%=
  1134.  tick2%>0 
  1135.  tick2%=
  1136.  tick2%=
  1137.  tick1%=
  1138.  byte%=1
  1139.  tick2%=
  1140.  byte%=byte%+2
  1141. %fileout=
  1142.  "HTML2:Resources.Ticks"
  1143. #fileout,byte%
  1144. #fileout
  1145. " at line ";
  1146. CheckTick(window%,icon%)
  1147.  flags
  1148. !block%=window%
  1149. block%!4=icon%
  1150. "Wimp_GetIconState",,block%
  1151. =block%!24
  1152. (1<<21)
  1153. SetTick(window%,icon%,tick%)
  1154. !block%=window%
  1155. block%!4=icon%
  1156.  tick% 
  1157.  block%!8=1<<21 
  1158.  block%!8=0
  1159. block%!12=1<<21
  1160. "Wimp_SetIconState",,block%
  1161. defineoptions
  1162. tick1%=
  1163. tick2%=
  1164. LoadTicks
  1165. SetTick(choicehandle,4,tick1%)
  1166. SetTick(choicehandle,5,tick2%)
  1167. LoadWindowOpts
  1168. LoadTicks
  1169.  byte%
  1170. byte%=0
  1171. &inputfile$="HTML2:Resources.Ticks"
  1172. "OS_File",5,inputfile$ 
  1173.  check%
  1174.  check%=0 
  1175. fileopen=
  1176.  inputfile$
  1177. byte%=
  1178. #fileopen
  1179. #fileopen
  1180.  byte% 
  1181.  2=1 
  1182.  tick1%=
  1183.  tick1%=
  1184.  byte%>1 
  1185.  tick2%=
  1186.  tick2%=
  1187. SaveWindowOpts
  1188. 'fileout=
  1189.  "HTML2:Resources.Windows"
  1190. !block%=addresshandle
  1191. "Wimp_GetWindowState",,block%
  1192.  outputloop=4 
  1193. #fileout,block%?outputloop
  1194. #fileout,block%?34
  1195. !block%=charhandle
  1196. "Wimp_GetWindowState",,block%
  1197.  outputloop=4 
  1198. #fileout,block%?outputloop
  1199. #fileout,block%?34
  1200. !block%=effecthandle
  1201. "Wimp_GetWindowState",,block%
  1202.  outputloop=4 
  1203. #fileout,block%?outputloop
  1204. #fileout,block%?34
  1205. !block%=styleshandle
  1206. "Wimp_GetWindowState",,block%
  1207.  outputloop=4 
  1208. #fileout,block%?outputloop
  1209. #fileout,block%?34
  1210. #fileopen 
  1211. " at line ";
  1212. LoadWindowOpts
  1213. (inputfile$="HTML2:Resources.Windows"
  1214. "OS_File",5,inputfile$ 
  1215.  check%
  1216.  check%=0 
  1217. fileopen=
  1218.  inputfile$
  1219.  inputloop=4 
  1220. block%?inputloop=
  1221. #fileopen
  1222. !block%=addresshandle
  1223. block%!28=-1
  1224. "Wimp_OpenWindow",,block%
  1225. #fileopen 
  1226.  1)=0 
  1227. "Wimp_CloseWindow",,block%
  1228.  inputloop=4 
  1229. block%?inputloop=
  1230. #fileopen
  1231. !block%=charhandle 
  1232. block%!28=-1
  1233. "Wimp_OpenWindow",,block%
  1234. #fileopen 
  1235.  1)=0 
  1236. "Wimp_CloseWindow",,block%
  1237.  inputloop=4 
  1238. block%?inputloop=
  1239. #fileopen
  1240. !block%=effecthandle 
  1241. block%!28=-1
  1242. "Wimp_OpenWindow",,block% 
  1243. #fileopen 
  1244.  1)=0 
  1245. "Wimp_CloseWindow",,block%
  1246.  inputloop=4 
  1247. block%?inputloop=
  1248. #fileopen
  1249. !block%=styleshandle
  1250. block%!28=-1
  1251. "Wimp_OpenWindow",,block% 
  1252. #fileopen 
  1253.  1)=0 
  1254. "Wimp_CloseWindow",,block%
  1255. #fileopen
  1256. RedrawWindows
  1257. reload
  1258. LoadStyles("<HTML2Scripts$Dir>.Styles")
  1259. LoadEffectsMacros("<HTML2Scripts$Dir>.Effects")
  1260. LoadAddresses("<HTML2Scripts$Dir>.Address")
  1261. LoadChars("<HTML2Scripts$Dir>.Chars")
  1262. RedrawWindows
  1263. RedrawWindows
  1264. "Wimp_ForceRedraw",-1,-1000,-1000,6000,6000
  1265. tofile(tofile$)
  1266.  output
  1267.  tofile$="" 
  1268.  pos%=1
  1269. (tofile$)
  1270. output=
  1271. tofile$,pos%,1)
  1272.  output=13 output=
  1273. #fileopen,output
  1274. #fileopen,13
  1275. LoadNewDefinitions(name$)
  1276. LoadStyles(name$)
  1277. LoadEffectsMacros(name$)
  1278. LoadAddresses(name$)
  1279. LoadChars(name$)
  1280. RedrawWindows
  1281. SaveDefs
  1282. SaveEffects
  1283. SaveChars
  1284. SaveAddress 
  1285. SaveStyle
  1286. SaveEffects
  1287. "XOS_CLI","Copy <HTML2Scripts$Dir>.Effects <HTML2Scripts$Dir>.^.Backups.Effects A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1288. G+fileopen=
  1289.  "<HTML2Scripts$Dir>.Effects"
  1290. tofile("ITAL="+ital$)
  1291. tofile("NOITAL="+noital$)
  1292. tofile("BOLD="+bold$) 
  1293. tofile("NOBOLD="+nobold$) 
  1294. tofile("UNDER="+under$) 
  1295. tofile("NOUNDER="+nounder$) 
  1296. tofile("USER="+usereffect$) 
  1297. tofile("NOUSER="+nousereffect$)
  1298. tofile("SUB="+sub$) 
  1299. tofile("SUP="+sup$) 
  1300. tofile("NOSUB="+nosub$) 
  1301. tofile("NOSUP="+nosup$)
  1302.  loop=1
  1303. tofile("PLUS="+plus$(loop))
  1304.  loop=1
  1305. tofile("MINUS="+minus$(loop))
  1306. tofile("ZERO="+zero$) 
  1307. tofile("RESET="+resetfont$)
  1308.  loop=1
  1309. ]-loop$=
  1310. (loop):
  1311.  loop<10 
  1312.  loop$="0"+loop$
  1313. tofile("COL"+loop$+"="+colour$(loop))
  1314. #fileopen
  1315. "XOS_CLI","SetType <HTML2Scripts$Dir>.Effects FFF"
  1316. SaveChars
  1317. "XOS_CLI","Copy <HTML2Scripts$Dir>.Chars <HTML2Scripts$Dir>.^.Backups.Chars A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1318. g)fileopen=
  1319.  "<HTML2Scripts$Dir>.Chars"
  1320. tofile("OL="+listitem$(1))
  1321. tofile("NoOL="+listitem$(2))
  1322. tofile("UL="+listitem$(3))
  1323. tofile("NoUL="+listitem$(4))
  1324. tofile("LI="+listitem$(5))
  1325. tofile("DL="+listitem$(6))
  1326. tofile("NoDL="+listitem$(7))
  1327. tofile("DH="+listitem$(8))
  1328. tofile("DD="+listitem$(9))
  1329.  loop=9
  1330. tofile("CTag"+
  1331. (loop-8)+"="+
  1332. ReadChar(loop))
  1333. tofile("CDef"+
  1334. (loop-8)+"="+char$(loop-8))
  1335. #fileopen
  1336. "XOS_CLI","SetType <HTML2Scripts$Dir>.Chars FFF"
  1337. ReadChar(icon)
  1338. !block%=charhandle
  1339. block%!4=icon
  1340. "Wimp_GetIconState",,block%
  1341. =$(block%!28)
  1342. SaveAddress
  1343. "XOS_CLI","Copy <HTML2Scripts$Dir>.Address <HTML2Scripts$Dir>.^.Backups.Address A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1344. +fileopen=
  1345.  "<HTML2Scripts$Dir>.Address"
  1346.  loop=1
  1347. -loop$=
  1348. (loop):
  1349.  loop<10 
  1350.  loop$="0"+loop$
  1351. temp$=
  1352. ReadAddress(loop-1)
  1353. tofile("AdTag"+loop$+"="+temp$)
  1354. tofile("AdDef"+loop$+"="+address$(loop))
  1355. #fileopen
  1356. "XOS_CLI","SetType <HTML2Scripts$Dir>.Address FFF"
  1357. ReadAddress(icon)
  1358. !block%=addresshandle
  1359. block%!4=icon
  1360. "Wimp_GetIconState",,block%
  1361. =$(block%!28)
  1362. SaveStyle
  1363. $;" at line ";
  1364. "XOS_CLI","Copy <HTML2Scripts$Dir>.Styles <HTML2Scripts$Dir>.^.Backups.Styles A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1365. *fileopen=
  1366.  "<HTML2Scripts$Dir>.Styles"
  1367. tofile("HEAD="+header$)
  1368. tofile("FOOT="+footer$)
  1369. tofile("")
  1370. tofile("H1ON="+h1on$)
  1371. tofile("NOH1="+h1off$)
  1372. tofile("H2ON="+h2on$)
  1373. tofile("NOH2="+h2off$)
  1374. tofile("H3ON="+h3on$)
  1375. tofile("NOH3="+h3off$)
  1376. tofile("H4ON="+h4on$)
  1377. tofile("NOH4="+h4off$)
  1378. tofile("H5ON="+h5on$)
  1379. tofile("NOH5="+h5off$)
  1380. tofile("H6ON="+h6on$)
  1381. tofile("NOH6="+h6off$)
  1382. tofile("")
  1383. tofile("CENTER="+center$) 
  1384. tofile("NOCENT="+nocenter$) 
  1385. tofile("PARA="+paragraph$) 
  1386. tofile("PARAOFF="+paraoff$) 
  1387. tofile("PARALF="+paraleft$) 
  1388. tofile("PARART="+pararight$) 
  1389. tofile("PARACN="+paracenter$) 
  1390. tofile("BREAK="+break$) 
  1391. tofile("BREAKOFF="+nobreak$) 
  1392. tofile("BREAKLF="+breakleft$) 
  1393. tofile("BREAKRT="+breakright$) 
  1394. tofile("BREAKCN="+breakcenter$)
  1395. tofile("IMAGE="+image$) 
  1396. tofile("CAP="+cap$) 
  1397. tofile("LINK="+link$) 
  1398. tofile("GONAME="+goname$) 
  1399. tofile("NAME="+aname$) 
  1400. tofile("ENDLK="+endlink$) 
  1401. tofile("RULE="+rule$) 
  1402. tofile("BAR="+bar$) 
  1403. tofile("CUSTOMRULE="+customrule$)
  1404. tofile("")
  1405. tofile("PRE="+pre$) 
  1406. tofile("NOPRE="+nopre$) 
  1407. tofile("TT="+tt$) 
  1408. tofile("NOTT="+nott$) 
  1409. tofile("CODE="+code$) 
  1410. tofile("NOCODE="+nocode$) 
  1411. tofile("VAR="+variable$) 
  1412. tofile("NOVAR="+novar$) 
  1413. tofile("CITE="+cite$) 
  1414. tofile("NOCITE="+nocite$) 
  1415. tofile("ADDRESS="+addressstyle$) 
  1416. tofile("NOADDRESS="+noaddress$) 
  1417. tofile("QUOTE="+quote$) 
  1418. tofile("NOQUOTE="+noquote$) 
  1419. tofile("STRIKE="+strikeout$) 
  1420. tofile("NOSTRIKE="+nostrikeout$)
  1421. tofile("USER1TAG="+
  1422. ReadStyle(51))
  1423. tofile("USER1="+user1$) 
  1424. tofile("NOUSER1="+nouser1$) 
  1425. tofile("USER2TAG="+
  1426. ReadStyle(53))
  1427. tofile("USER2="+user2$) 
  1428. tofile("NOUSER2="+nouser2$) 
  1429. #fileopen
  1430. "XOS_CLI","SetType <HTML2Scripts$Dir>.Styles FFF"
  1431. ReadStyle(icon)
  1432. !block%=styleshandle
  1433. block%!4=icon
  1434. "Wimp_GetIconState",,block%
  1435. =$(block%!28)
  1436.